home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
T-TPUG Old Monthly Disks
/
(c)t3.d64
/
grafix instr.c
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
3KB
|
65 lines
10 POKE53280,14:POKE53281,1:PRINT"[144]":GOSUB10000
30 PRINT" [212]HIS WAS WRITTEN BY [194]RAD [212]EMPLETON"
35 PRINT" AND APPEARED IN THE [202]ULY '83 ISSUE OF"
37 PRINT" '[212]HE [212]RANSACTOR'. [201]T RESIDES IN LO-"
40 PRINT" CATIONS 49152-49853 ($[195]000-$[195]2[194][196]) AND"
50 PRINT" IS NOT RELOCATABLE AS IT IS.":PRINT
60 PRINT" [212]HE FIRST FIFTEEN BYTES ARE JUMP"
70 PRINT" VECTORS TO THE FIVE COMMANDS. [212]HEY"
75 PRINT" START AT 41953. [211]ETTING A VARIABLE"
80 PRINT" LIKE [194][193] [160]([194]ASE [193]DDRESS) TO THIS MEANS"
90 PRINT" YOU CAN EASILY ACCESS EACH COMMAND."
95 PRINT"":GOSUB 9000
110 PRINT"[160][201]NITIALIZE - [211][217][211] 49153 OR [211][217][211][160][194][193]":PRINT" [163][163][163][163][163][163][163][163][163][163]"
120 PRINT"[160][198]ORMAT: [211][217][211][160][194][193],[195]0,[195]1,[195]2,[195]3":PRINT
130 PRINT"[160][211]ETS UP THE COLOUR GRAPHICS SCREEN"
140 PRINT" WITH FOUR COLOURS:"
150 PRINT"[160][160][160][160][195]0: [194]ACKGROUND"
160 PRINT"[160][160][160][160][195]1: [193]LTERNATE [194]ACKGROUND #1"
170 PRINT"[160][160][160][160][195]2: [193]LTERNATE [194]ACKGROUND #2"
180 PRINT"[160][160][160][160][195]3: [195]OLOUR [206]YBBLES"
190 PRINT"[160][215]HEN [211][217][211][160][194][193] IS CALLED, THE SCREEN IS"
200 PRINT"[160]CLEARED TO THE BACKGROUND COLOUR. [201]N"
210 PRINT" SUBSEQUENT COMMANDS THE FOUR COLOURS"
220 PRINT" ARE REFERENCED BY THE NUMBERS 0 TO 3.":PRINT"":GOSUB9000
300 PRINT" [210]EAD [204]OCATION - [211][217][211] 49156 OR [211][217][211] [194][193]+3":PRINT"[160][163][163][163][163][163][163][163][163][163][163][163][163][163]"
310 PRINT"[160][198]ORMAT: [211][217][211] [194][193]+3,[210][207][215],[195][207][204]":PRINT
320 PRINT" [210]EADS THE GIVEN PIXEL. [212]HE COLOUR,"
330 PRINT"[160]FROM 0 TO 3, WILL BE STORED IN LOCA-"
340 PRINT" TION 256 FOR YOU TO [208][197][197][203] AT."
350 PRINT" [211]ET [208]OINT - [211][217][211] 49159 OR [211][217][211] [194][193]+6":PRINT"[160][163][163][163][163][163][163][163][163][163]"
360 PRINT"[160][198]ORMAT: [211][217][211] [194][193]+6,[210][207][215],[195][207][204],[195][207][204][207][213][210]":PRINT
370 PRINT"[160][211]ETS A PIXEL TO THE SPECIFIED COLOUOR."
380 PRINT"[160][195]HOOSE COLOUR 0 (BACKGROUND COLOUR) TO"
390 PRINT"[160]TURN PIXEL OFF.":PRINT:GOSUB9000
400 PRINT" [210]ESTORE [212]EXT [205]ODE - [211][217][211] 49162 OR"
405 PRINT"[160][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] [211][217][211][160][194][193]+9"
410 PRINT" [198]ORMAT: [211][217][211][160][194][193]+9:[208][210][201][206][212] "CHR$(34)"[147]"CHR$(34)
420 PRINT" [199]IVES BACK THE NORMAL TEXT SCREEN."
430 PRINT"[160][212]HE SCREEN WILL BE FULL OF GARBAGE"
440 PRINT" FROM THE COLOUR GRAPHICS, SO IT'S BEST"
450 PRINT"[160]TO FOLLOW WITH A CLEAR SCREEN INSTRUC-"
455 PRINT"[160]TION.
460 [153]"":[141]9000
500 [153]" STR$RAW - (null)(null)(null) 49165 OR (null)(null)(null)CLOSEPEEKATN+12":[153]" TAB(TAB(TAB(TAB("
510 [153]"CLOSEASCORMAT:":[153]"CLOSECLOSECLOSECLOSE(null)(null)(null)CLOSEPEEKATN+12,(null)1,LEN1,(null)2,LEN2,LEN(null)(null)(null)(null)(null)"
520 [153]"CLOSESTR$RAWS A LINE FROM THE POINT (null)1/LEN1 TO"
530 [153]"CLOSETHE POINT (null)2/LEN2 OF COLOUR 0 TO 3. ATNS"
540 [153]"CLOSEBEFORE, COLOUR 0 ERASES THE LINE."
550 [153]"":[141]9000
600 [153]" (null)OADING CHR$RAPHICS (null)OUTINES":[153]"CLOSETAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
610 [153]"CLOSECLOSECLOSECLOSE(null)O USE THESE GRAPHICS ROUTINES IN"
620 [153]" YOUR OWN PROGRAMS, THEY CAN BE LOADED"
630 [153]" WITH THIS INSTRUCTION AT THE BEGINNING"
640 [153]" OF THE PROGRAM:"
650 [153]" 1 RIGHT$ASCCLOSE(null)VALVAL(null) 49152<>96 (null)LEFT$VAL(null)CLOSE"
655 [153]" CLOSE (null)(null)ATNSTR$CLOSE"[199](34)"CHR$(null)ATNASCRIGHT$(null)CLOSE(null)(null)(null)(null)"[199](34)",8,1"
660 [153]"":[141]9000
700 [153][163]14)"VALND OF (null)EXT"
8999 [128]
9000 [153][163]14)"(null)RESS (null)VAL(null)(null)(null)(null)"
9010 [161]A$:[139]A$[179][177][199](13)[137]9010
10000 [153]"LOAD CHR$CLOSE(null)CLOSEATNCLOSEASCCLOSERIGHT$CLOSE(null)CLOSECLOSECLOSERIGHT$CLOSE(null)CLOSE(null)CLOSE(null)CLOSE(null)CLOSE(null)CLOSELENCLOSE(null)CLOSERIGHT$CLOSE(null)CLOSE(null)CLOSE(null)"
10010 [153]" TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
10020 [142]